Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  987 1860 (N45E35 L=  8)   886     92        0 ( 952/1833-1029/1882)  71.6 E38-E31 N41-N48
      2 1078 1783 (N42E23 L= 20)   526     55        1 (1048/1760-1106/1807) -21.8 E25-E20 N39-N44
      3 1112 1623 (N31E13 L= 30)  1095    217        3 (1072/1529-1137/1715) -53.1 E17-E08 N24-N37
      4  380 1593 (N11E62 L=341)  2030    301        6 ( 319/1510- 428/1681) -85.6 E66-E57 N04-N17
      5  726 1388 (N06E27 L= 17)   834    215        3 ( 651/1331- 816/1470) -21.0 E33-E20 N03-N09
      6  523 1303 (S04E37 L=  6)   371    106        1 ( 474/1275- 567/1329)   0.0 E40-E33 S05-S02
      7 1049 1303 (N09E06 L= 37)   546    171        0 ( 956/1259-1126/1329)  15.3 E11-W00 N06-N11
      8 1038 1085 (S03E01 L= 42)   674    237        1 ( 916/ 985-1121/1170)  70.3 E05-W01 S11-N03
      9  182 1024 (S26E59 L=344)   493     88        2 ( 171/ 979- 198/1067) -80.5 E60-E57 S29-S23
     10  138  990 (S29E63 L=340)   632    138        3 ( 119/ 959- 159/1021) -76.0 E65-E60 S30-S26
     11 1877  917 (N14W61 L=104)   625    125        2 (1860/ 871-1904/ 970) -71.6 W57-W64 N10-N16
     12  783  886 (S21E10 L= 33)   313    135        2 ( 724/ 852- 844/ 933)  49.4 E13-E07 S24-S16
     13  549  907 (S25E26 L= 18)   293     70        1 ( 515/ 888- 575/ 930)   0.0 E28-E23 S26-S23
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y