Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1537 1615 (N33W42 L=167)   888    118        1 (1486/1572-1581/1646) -33.7 W38-W45 N30-N35
      2  725 1557 (N32E19 L=105)   865    244        0 ( 649/1456- 788/1632) -47.3 E25-E13 N24-N37
      3 1001 1540 (N29W01 L=125)   838    265        4 ( 896/1483-1138/1589) -18.4 E06-W09 N25-N33
      4  874 1333 (N16E08 L=116)   360    202        0 ( 804/1261- 921/1382) -48.8 E12-E05 N11-N19
      5 1275 1315 (N14W17 L=141)   398    117        4 (1229/1266-1323/1349) -33.7 W13-W19 N10-N16
      6  859 1220 (N10E09 L=115)   317    116        0 ( 842/1165- 878/1276) -90.0 E10-E07 N06-N13
      7 1803 1075 (S01W54 L=178)  2341    532        5 (1700/ 954-1901/1157) -70.0 W44-W64 S08-N03
      8  400  969 (S03E40 L= 84)   345     52        2 ( 373/ 937- 420/1001) -76.0 E42-E38 S04-N00
      9  463  858 (S10E37 L= 88)  1396    277        6 ( 373/ 811- 585/ 925) -23.2 E42-E28 S12-S05
     10 1741  878 (S13W48 L=172)   835     98        3 (1708/ 831-1769/ 925) -39.8 W45-W51 S15-S10
     11 1651  846 (S15W41 L=165)  1152    290        2 (1571/ 745-1697/ 910) -48.4 W34-W44 S20-S10
     12  206  820 (S10E60 L= 64)  1076    195        4 ( 130/ 747- 267/ 888) -32.7 E69-E54 S15-S05
     13 1528  802 (S17W32 L=156)   525    140        1 (1480/ 743-1567/ 858)  60.3 W28-W34 S20-S13
     14 1782  734 (S22W55 L=179)   405     41        1 (1757/ 709-1803/ 756) -21.8 W52-W57 S23-S20
     15  268  634 (S22E60 L= 64)  1297    212        4 ( 199/ 588- 313/ 720)  15.9 E73-E51 S24-S17
     16 1019  642 (S26E02 L=122)   314     92        0 ( 988/ 606-1040/ 694)  59.0 E04-W00 S27-S22
     17 1683  639 (S28W48 L=172)   334     72        1 (1654/ 614-1716/ 669)  45.0 W45-W50 S29-S25
     18  666  456 (S36E30 L= 94)   295     50        2 ( 650/ 428- 686/ 488)  76.0 E32-E27 S38-S34
     19  630  413 (S39E35 L= 89)   348     46        0 ( 603/ 392- 655/ 435) -26.6 E37-E32 S40-S37
     20  576  356 (S43E44 L= 81)   609     87        2 ( 533/ 323- 611/ 395)  24.4 E48-E37 S45-S40
     21  812  251 (S54E27 L= 97)   463     65        1 ( 768/ 228- 845/ 270) -26.6 E31-E23 S56-S51
     22  981  206 (S60E11 L=113)  1040    154        0 ( 915/ 183-1055/ 228)   0.0 E18-E02 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