Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  535 1574 (N39E40 L=170)   330     72        1 ( 518/1551- 560/1601) -53.1 E43-E37 N37-N41
      2 1734 1230 (N15W52 L=262)  2434    575       10 (1631/1136-1825/1328) -35.5 W43-W61 N08-N21
      3 1221 1253 (N18W13 L=224)   754    156        3 (1153/1222-1287/1292) -35.5 W08-W17 N15-N20
      4 1867 1103 (N06W65 L=276)   462    123        3 (1853/1061-1881/1135)  45.0 W63-W67 N03-N07
      5  674  923 (S03E22 L=189)  1024    279        5 ( 590/ 887- 775/ 969)  -4.8 E27-E15 S04-N00
      6 1710  727 (S17W49 L=260)  2270    537       10 (1644/ 535-1788/ 855)  76.6 W42-W56 S29-S08
      7 1241  742 (S14W14 L=224)   352    162        0 (1168/ 685-1307/ 807)  41.2 W09-W17 S17-S10
      8 1415  766 (S13W25 L=236)   323    146        3 (1359/ 721-1483/ 794)  26.6 W21-W29 S15-S11
      9  430  731 (S15E41 L=169)   371     99        2 ( 414/ 683- 445/ 781)  74.1 E42-E39 S18-S11
     10  287  625 (S23E57 L=153)  2559    328        9 ( 217/ 481- 350/ 738) -74.5 E63-E52 S33-S15
     11  990  679 (S18E03 L=208)   626    182        3 ( 913/ 608-1030/ 735) -54.5 E07-W00 S22-S14
     12 1420  466 (S34W30 L=241)   318    133        0 (1396/ 425-1438/ 531) -82.9 W28-W31 S37-S29
     13  590  443 (S35E35 L=176)   305     58        1 ( 573/ 414- 610/ 471)  76.0 E36-E32 S37-S33
     14 1335  393 (S40W25 L=235)   367     88        1 (1292/ 378-1382/ 410)   8.1 W21-W28 S40-S38
  

    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