Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  780 1577 (N47E01 L=161)   412    123        1 ( 727/1532- 825/1620)  18.4 E06-W03 N44-N48
      2  881 1340 (N29E01 L=161)   866    272        1 ( 757/1272- 977/1394)   7.1 E10-W06 N26-N29
      3 1049 1190 (N16W05 L=168)   635    333        1 ( 907/1141-1194/1226) -14.0 E03-W13 N12-N17
      4 1782 1116 (S08W51 L=214)   846    123        1 (1757/1062-1807/1175)  39.8 W48-W55 S10-S05
      5  516 1131 (N24E30 L=133)   688    145        1 ( 449/1092- 577/1172)   5.2 E35-E24 N22-N25
      6 1691 1077 (S07W42 L=205)   712    196        1 (1654/1020-1750/1166) -90.0 W40-W47 S10-S01
      7 1728  912 (S18W42 L=205)  2529    636        6 (1544/ 701-1878/1122)  22.6 W24-W61 S25-S10
      8  290 1082 (N25E50 L=112)   386    104        0 ( 252/1049- 343/1107)   5.7 E54-E44 N23-N26
      9  254  992 (N20E55 L=108)   790    208        0 ( 221/ 916- 294/1068) -68.2 E57-E51 N15-N25
     10 1655 1038 (S08W39 L=201)   241     51        0 (1640/1005-1667/1066) -90.0 W37-W39 S10-S06
     11 1379  890 (S09W17 L=179)   307     84        1 (1350/ 859-1424/ 914) -11.3 W15-W20 S10-S07
     12  141  881 (N15E72 L= 90)   685     45        1 ( 118/ 862- 165/ 901)  -7.1 E76-E67 N13-N16
     13 1307  807 (S12W11 L=173)   331     47        0 (1274/ 781-1341/ 831) -45.0 W09-W12 S13-S09
     14 1154  801 (S08W02 L=164)   245     42        0 (1131/ 779-1182/ 818)  18.4 W00-W03 S09-S07
     15 1226  771 (S12W06 L=168)   316     53        2 (1203/ 738-1251/ 801)  56.3 W03-W07 S13-S10
     16 1188  669 (S17W01 L=163)   989    361        0 (1054/ 612-1355/ 703)  -9.0 E08-W11 S20-S14
     17  416  502 (S11E55 L=107)  2527    404        8 ( 260/ 386- 505/ 669) -73.3 E63-E49 S20-N00
     18 1351  526 (S31W08 L=170)   639    273        0 (1260/ 454-1460/ 612)  16.4 W00-W17 S33-S28
     19  570  493 (S14E43 L=120)   343     51        0 ( 550/ 469- 589/ 525)  63.4 E44-E40 S16-S12
     20  943  452 (S25E20 L=142)   566    188        3 ( 871/ 414-1000/ 478)  -6.3 E25-E16 S28-S23
     21  623  350 (S25E47 L=115)  1588    339        1 ( 518/ 273- 704/ 470)  18.4 E61-E34 S30-S18
     22  822  435 (S23E28 L=134)   377     57        0 ( 800/ 402- 845/ 468)  68.2 E29-E26 S25-S20
     23  919  357 (S31E26 L=137)   388    141        0 ( 848/ 344- 961/ 392)   0.0 E30-E21 S32-S29
     24  987  325 (S35E23 L=139)   583    153        3 ( 938/ 266-1025/ 371)  28.6 E29-E18 S38-S32
     25 1248  314 (S44E05 L=157)   588     92        2 (1205/ 288-1292/ 346)   0.0 E09-E01 S46-S40
     26  912  151 (S49E45 L=118)   520     46        1 ( 891/ 127- 930/ 175)  56.3 E48-E40 S52-S46
  

    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