Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  525 1674 (N25E54 L=176)   766    176        1 ( 485/1624- 554/1710) -32.0 E58-E50 N22-N27
      2  823 1438 (N17E22 L=208)   277     90        1 ( 812/1394- 841/1481) -59.0 E24-E20 N14-N19
      3 1169 1349 (N19W01 L=231)   482    132        2 (1152/1277-1193/1408) -76.0 W00-W02 N14-N23
      4 1457 1323 (N25W20 L=250)   411     75        0 (1422/1289-1489/1358) -31.0 W17-W22 N23-N26
      5 1074 1179 (N07E01 L=229)   593    164        1 (1021/1096-1119/1229) -35.5 E04-W03 N03-N09
      6 1596 1021 (N10W35 L=265)   481    100        0 (1563/ 975-1624/1077) -29.7 W31-W38 N08-N13
      7 1014  941 (S08W01 L=231)   193     68        0 ( 975/ 915-1048/ 963) -14.0 E01-W03 S08-S06
      8  421  842 (S27E36 L=194)   745    223        2 ( 374/ 800- 473/ 893)  58.0 E39-E31 S30-S22
      9  970  860 (S13W01 L=231)   299     75        1 ( 936/ 837-1014/ 884)  45.0 E01-W02 S14-S11
     10 1554  598 (S14W45 L=275)   899    155        3 (1505/ 564-1609/ 640)  50.2 W40-W49 S16-S10
     11  919  573 (S32W05 L=235)   359     74        1 ( 890/ 546- 962/ 606)  26.6 W03-W07 S34-S29
     12 1417  406 (S29W45 L=275)   647     82        2 (1386/ 372-1452/ 438)  63.4 W41-W47 S32-S27
     13 1230  333 (S39W37 L=267)   312     76        0 (1215/ 312-1254/ 361) -21.8 W34-W39 S41-S37
     14 1147  309 (S44W33 L=263)   366     56        0 (1132/ 278-1160/ 336) -59.0 W30-W35 S46-S41
     15 1188  252 (S47W40 L=270)   859    137        1 (1134/ 221-1220/ 299) -82.9 W37-W43 S50-S42
  

    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