Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1093 1839 (N53W46 L=281)   528     72        2 (1076/1796-1110/1874)  19.7 W39-W53 N49-N55
      2 1022 1818 (N54W38 L=273)   891     80        2 ( 984/1786-1058/1859)  12.1 W31-W45 N51-N57
      3 1384 1824 (N39W66 L=301)   602     48        2 (1365/1794-1405/1851)  16.7 W61-W73 N37-N40
      4 1618 1550 (N17W57 L=292)  2128    316        5 (1522/1421-1695/1645)  71.6 W50-W64 N07-N22
      5 1410 1518 (N22W40 L=274)   414    127        0 (1359/1474-1458/1540) -63.4 W36-W42 N18-N24
      6 1739 1482 (N09W64 L=299)   596     75        2 (1715/1455-1777/1519) -90.0 W60-W68 N06-N11
      7 1131 1394 (N24W17 L=252)   296     94        0 (1115/1353-1151/1448)  71.6 W15-W18 N20-N26
      8  764 1396 (N34E05 L=229)  1614    432        2 ( 584/1337- 966/1430) -30.3 E19-W06 N25-N39
      9 1502 1315 (N08W36 L=271)   319    100        0 (1452/1294-1534/1348)   0.0 W32-W39 N07-N09
     10  953 1176 (N16W00 L=235)   587    251        0 ( 834/1150-1062/1217) -12.1 E07-W07 N14-N18
     11  602 1105 (N21E23 L=212)   780    201        2 ( 503/1075- 709/1127) -14.9 E30-E15 N18-N23
     12 1185 1094 (N06W11 L=245)   190     42        1 (1167/1074-1203/1114)  18.4 W09-W12 N04-N07
     13 1731 1026 (S14W44 L=279)   292     76        0 (1699/1009-1763/1054)   0.0 W41-W47 S15-S12
     14  235  975 (N22E56 L=178)   477     87        0 ( 212/ 937- 270/1016) -50.2 E58-E53 N18-N24
     15  567  983 (N15E28 L=207)   516    189        0 ( 509/ 934- 653/1004)  -5.7 E32-E22 N13-N16
     16  157  877 (N17E69 L=165)  1112    135        0 ( 101/ 831- 210/ 907) -14.7 E81-E62 N13-N19
     17 1895  862 (S31W62 L=296)   815    101        1 (1859/ 836-1929/ 901)   0.0 W55-W68 S32-S29
     18 1427  738 (S21W16 L=250)   298    122        0 (1397/ 690-1462/ 792)  35.5 W12-W19 S23-S18
     19 1565  473 (S45W22 L=257)  3440    622        3 (1314/ 309-1746/ 657)  14.3 E03-W41 S49-S37
     20  619  406 (S20E45 L=190)   520     95        0 ( 603/ 360- 636/ 458)  45.0 E48-E41 S22-S16
     21 1103  184 (S52E30 L=205)   793     82        2 (1062/ 163-1154/ 207) -12.5 E34-E25 S53-S48
  

    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