Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1470 1445 (N24W28 L= 52)   697    172        1 (1398/1381-1545/1512) -41.6 W23-W32 N20-N28
      2 1272 1454 (N23W14 L= 38)   265    109        0 (1211/1438-1327/1470)  -7.1 W09-W17 N22-N24
      3 1311 1191 (N07W17 L= 41)   356    155        0 (1273/1145-1368/1268) -49.4 W14-W20 N04-N11
      4  659 1183 (N04E23 L=  1)   259     80        0 ( 619/1169- 704/1202)   0.0 E25-E20 N02-N04
      5 1050 1128 (N02W01 L= 25)   213     62        1 (1012/1110-1090/1146)  36.9 E01-W03 N00-N03
      6 1942 1098 (N07W72 L= 96)  1449    235        2 (1905/1065-1973/1129)  -9.5 W65-W79 N05-N09
      7  414  943 (S11E39 L=345)  1727    430        3 ( 277/ 813- 513/1109)  43.5 E51-E32 S18-N00
      8 1799  686 (S19W59 L= 83)  3177    526        9 (1736/ 532-1864/ 893)  90.0 W52-W64 S28-S06
      9  761  699 (S25E16 L=  8)   408    130        1 ( 708/ 652- 815/ 746)  45.0 E19-E12 S28-S22
     10  976  589 (S31E01 L= 23)  2588    629        5 ( 724/ 456-1246/ 745)  31.0 E20-W15 S41-S19
     11 1734  706 (S19W52 L= 76)   364     39        1 (1710/ 684-1754/ 730)  45.0 W50-W54 S19-S17
     12  316  579 (S34E53 L=331)  1289    261        6 ( 281/ 517- 365/ 638)  69.4 E58-E48 S37-S29
     13  429  606 (S32E42 L=342)   537     90        1 ( 390/ 591- 472/ 625)  -8.1 E45-E38 S32-S30
     14 1313  406 (S42W27 L= 51)   303     39        0 (1286/ 387-1338/ 424)  33.7 W25-W29 S43-S40
  

    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