Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1220 1779 (N56W06 L= 86)   946    179        0 (1134/1756-1300/1809)  -3.2 E03-W15 N54-N58
      2  580 1574 (N30E41 L= 39)  1347    233        2 ( 529/1468- 661/1638)  81.3 E44-E36 N22-N35
      3  699 1547 (N29E30 L= 49)   965    178        2 ( 671/1453- 733/1625) -63.4 E35-E26 N23-N35
      4  323 1556 (N25E67 L= 12)   656    111        1 ( 287/1509- 358/1586)  56.3 E70-E63 N21-N27
      5 1402 1535 (N38W22 L=102)   778    162        1 (1316/1506-1475/1556)  12.1 W14-W28 N35-N40
      6  392 1497 (N22E54 L= 26)   938    132        3 ( 359/1442- 427/1546)  90.0 E58-E51 N18-N25
      7 1819 1347 (N30W62 L=142)  1580    142        2 (1752/1323-1891/1364)   4.2 W52-W79 N27-N31
      8  421 1314 (N11E44 L= 36)   314    120        0 ( 395/1269- 458/1346)  68.2 E45-E41 N08-N13
      9  307 1205 (N03E52 L= 28)   649    142        1 ( 256/1146- 343/1241) -18.4 E57-E47 N00-N05
     10  702  965 (S06E19 L= 61)   706    200        1 ( 647/ 889- 760/1046)  68.2 E22-E16 S11-S01
     11 1312  955 (S00W18 L= 98)   866    234        0 (1225/ 866-1357/1036)  59.0 W13-W20 S06-N04
     12 1823  655 (S13W69 L=148)  1075    127        2 (1796/ 600-1857/ 710)  74.1 W65-W73 S16-S09
     13 1532  629 (S18W39 L=119)   523    192        1 (1457/ 595-1587/ 680)  24.0 W33-W42 S20-S14
     14 1585  521 (S24W48 L=128)   516     95        1 (1538/ 504-1633/ 548)  29.7 W44-W51 S25-S21
     15 1314  340 (S41W35 L=115)  1027    134        3 (1250/ 318-1374/ 370)  18.4 W29-W40 S42-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