Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1224 1779 (N57W06 L= 85)   958    181        2 (1126/1752-1302/1813)  -3.0 E04-W15 N54-N58
      2  590 1570 (N30E40 L= 39)  1273    252        1 ( 541/1458- 673/1636)  81.3 E42-E35 N21-N35
      3  710 1551 (N30E30 L= 49)   856    174        2 ( 682/1442- 738/1628) -61.7 E34-E26 N22-N35
      4  326 1550 (N25E66 L= 13)   691    105        2 ( 293/1502- 366/1584) -80.5 E69-E62 N21-N27
      5 1436 1533 (N38W25 L=104)   561     75        0 (1396/1503-1485/1554)  20.6 W21-W29 N35-N40
      6  395 1480 (N21E53 L= 26)   589     75        1 ( 366/1447- 431/1505)  53.1 E56-E50 N18-N23
      7 1823 1347 (N30W63 L=141)  1508    142        1 (1757/1323-1892/1366)   4.4 W53-W79 N28-N31
      8  306 1194 (N03E52 L= 27)   888    225        4 ( 251/1130- 358/1239)  63.4 E56-E46 S01-N05
      9  712  953 (S07E18 L= 61)   726    199        0 ( 657/ 874- 774/1037)  61.4 E21-E15 S12-S01
     10 1334  957 (N00W20 L= 98)   893    184        1 (1271/ 880-1375/1033)  66.0 W16-W21 S04-N05
     11 1829  656 (S13W69 L=148)  1096    131        1 (1801/ 596-1865/ 712)  74.1 W67-W72 S16-S09
     12 1649  669 (S14W48 L=127)   309     63        1 (1626/ 637-1667/ 699) -63.4 W45-W49 S15-S11
     13 1535  621 (S18W40 L=119)   428    190        0 (1471/ 593-1592/ 674)  24.0 W34-W43 S19-S14
     14 1587  514 (S25W49 L=128)   617    118        0 (1533/ 488-1637/ 541)  26.6 W44-W53 S26-S22
     15 1292  337 (S41W33 L=112)  1409    251        3 (1163/ 316-1397/ 367)   8.5 W21-W42 S43-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