Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  472 1636 (N40E43 L= 79)   331     62        1 ( 458/1603- 485/1670) -68.2 E45-E41 N37-N42
      2  740 1577 (N33E18 L=105)   611    172        2 ( 699/1506- 770/1649) -63.4 E21-E15 N28-N38
      3 1557 1617 (N33W44 L=167)   971    120        2 (1506/1579-1609/1649) -33.7 W40-W48 N30-N35
      4 1033 1540 (N29W03 L=125)   830    294        1 ( 919/1486-1181/1590) -19.4 E05-W12 N25-N33
      5  230 1507 (N32E68 L= 54)   806     57        1 ( 195/1487- 259/1521)  -3.6 E79-E63 N30-N33
      6 1494 1371 (N17W32 L=154)   232     32        2 (1473/1349-1513/1393) -71.6 W30-W32 N15-N18
      7  905 1337 (N17E06 L=116)   305    151        0 ( 862/1270- 943/1384) -54.5 E08-E03 N12-N19
      8 1283 1332 (N15W17 L=140)   246     65        0 (1252/1318-1321/1345)   0.0 W15-W19 N14-N15
      9  887 1224 (N10E08 L=115)   308    127        0 ( 870/1162- 904/1280)  81.9 E08-E06 N06-N13
     10 1782 1049 (S03W51 L=174)  1777    336        3 (1721/ 942-1840/1156) -76.0 W45-W57 S09-N03
     11 1895 1089 (S00W64 L=187)   849    148        1 (1853/1015-1915/1132) -50.2 W59-W67 S04-N02
     12  424  962 (S04E38 L= 84)   366    104        1 ( 398/ 918- 445/1009) -63.4 E40-E37 S06-N00
     13  476  858 (S10E36 L= 87)  1169    252        4 ( 395/ 812- 591/ 925) -21.0 E40-E27 S12-S05
     14 1761  872 (S13W50 L=173)   763    111        3 (1724/ 826-1798/ 918) -45.0 W47-W54 S16-S10
     15 1639  835 (S15W40 L=163)  1624    410        2 (1522/ 715-1715/ 909)  24.8 W31-W46 S22-S11
     16  165  868 (S07E64 L= 58)   586     88        1 ( 130/ 844- 195/ 887)  -6.3 E69-E60 S08-S06
     17  257  786 (S13E55 L= 67)   525     83        2 ( 222/ 747- 284/ 825) -45.0 E58-E53 S15-S10
     18  152  774 (S13E69 L= 53)   554     56        1 ( 134/ 741- 169/ 805) -63.4 E71-E67 S14-S10
     19  512  715 (S19E35 L= 87)   314     88        1 ( 486/ 674- 544/ 757)  59.0 E37-E32 S21-S16
     20 1738  679 (S25W52 L=174)   749    191        2 (1665/ 609-1807/ 754)  39.3 W46-W57 S29-S20
     21  311  676 (S20E53 L= 69)   402     67        0 ( 293/ 638- 325/ 711)  45.0 E56-E50 S22-S17
     22 1041  643 (S26E00 L=122)   413    121        0 ( 998/ 599-1068/ 702)  56.3 E03-W01 S28-S22
     23  247  608 (S24E64 L= 59)   836     96        1 ( 203/ 587- 298/ 633)  -4.4 E72-E58 S25-S21
     24  650  418 (S39E33 L= 90)   732    129        2 ( 601/ 360- 702/ 475)  26.6 E40-E26 S43-S35
     25  575  349 (S44E44 L= 78)   404     51        1 ( 544/ 330- 603/ 371) -21.8 E46-E41 S45-S42
     26  834  248 (S54E25 L= 98)   359     28        1 ( 806/ 227- 859/ 268) -63.4 E27-E21 S56-S52
     27 1023  206 (S60E06 L=117)   629     87        2 ( 985/ 178-1067/ 229)  11.3 E10-W00 S62-S57
  

    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