Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  513 1672 (N25E55 L=177)   700    178        0 ( 481/1617- 536/1713) -36.9 E60-E51 N21-N27
      2 1142 1371 (N20E01 L=231)   250     87        0 (1132/1325-1150/1418) -71.6 E02-W00 N17-N23
      3 1433 1334 (N25W18 L=250)   404     57        0 (1401/1299-1463/1367) -31.0 W15-W20 N23-N26
      4 1046 1184 (N07E02 L=229)   604    199        1 ( 985/1095-1089/1239) -36.9 E06-W02 N02-N09
      5  454 1114 (S10E38 L=194)   691    105        0 ( 426/1052- 480/1168)  90.0 E38-E36 S14-S06
      6 1585 1009 (N10W35 L=267)   295     49        0 (1566/ 982-1607/1041) -26.6 W32-W36 N08-N11
      7  429  855 (S26E35 L=197)   558    190        0 ( 363/ 810- 464/ 921)  53.1 E40-E32 S29-S21
      8  943  873 (S13E01 L=231)   337    118        1 ( 910/ 848- 979/ 901)  45.0 E03-W00 S14-S11
      9 1706  630 (S09W57 L=289)   392     98        2 (1686/ 599-1730/ 657) -21.8 W54-W60 S10-S07
     10 1535  607 (S14W44 L=275)   730    121        3 (1480/ 582-1591/ 635)  29.7 W40-W47 S16-S11
     11  919  593 (S31W04 L=236)   245     53        1 ( 899/ 573- 943/ 620) -33.7 W02-W06 S32-S28
     12 1397  415 (S29W43 L=275)   571     61        1 (1370/ 393-1433/ 443)  45.0 W40-W45 S31-S27
     13 1210  343 (S39W35 L=267)   304     55        0 (1190/ 319-1230/ 368) -21.8 W32-W37 S40-S37
     14 1140  325 (S43W31 L=263)   286     71        0 (1122/ 290-1154/ 349) -51.3 W29-W33 S45-S40
     15 1179  274 (S45W38 L=270)  1003    127        2 (1136/ 233-1228/ 312)  59.0 W34-W41 S49-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