Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  973 1646 (N30E18 L=291)   850    256        1 ( 913/1552-1041/1741) -33.7 E25-E10 N24-N36
      2  805 1680 (N29E30 L=278)   572    169        1 ( 760/1621- 870/1737)  84.3 E33-E27 N24-N34
      3  895 1651 (N29E23 L=285)   378    100        0 ( 856/1625- 935/1674)  59.0 E25-E20 N26-N31
      4  393 1601 (N17E59 L=249)  1159    140        2 ( 364/1550- 427/1653) -35.0 E65-E53 N13-N21
      5 1444 1618 (N40W16 L=325)   581    121        0 (1387/1576-1493/1651) -18.4 W11-W20 N38-N41
      6 1688 1510 (N40W40 L=348)   601    101        1 (1638/1474-1727/1534)  -6.3 W34-W43 N38-N41
      7  966 1349 (N11E10 L=299)   814    211        3 ( 929/1269-1023/1446)  90.0 E11-E07 N05-N17
      8 1143 1328 (N13W01 L=309)   297     67        1 (1123/1293-1163/1355) -76.0 W00-W02 N10-N14
      9 1349 1187 (N09W16 L=324)   640    218        0 (1282/1109-1394/1272)  79.7 W12-W17 N03-N14
     10 1019 1153 (N00E03 L=306)   432    153        0 ( 951/1133-1089/1188)   0.0 E07-W01 N00-N01
     11 1575 1132 (N11W31 L=340)   246     50        0 (1551/1104-1597/1161) -33.7 W29-W33 N09-N12
     12 1830 1106 (N17W53 L=  2)   499     83        0 (1793/1082-1868/1123)  24.0 W49-W58 N14-N18
     13 1803  988 (N09W53 L=  1)  2010    316        6 (1721/ 888-1876/1090) -19.3 W43-W63 N04-N13
     14  978 1004 (S09E02 L=306)   190     70        0 ( 951/ 991-1014/1024)   0.0 E04-W00 S09-S08
     15 1897  992 (N13W64 L= 12)   604     61        1 (1878/ 959-1916/1017)  53.1 W61-W66 N10-N14
     16  822  961 (S14E11 L=298)   283    125        0 ( 772/ 925- 880/ 989)  45.0 E13-E07 S17-S11
     17 1398  895 (S06W25 L=333)   294    115        3 (1348/ 853-1441/ 920)  51.3 W22-W27 S09-S04
     18 1496  875 (S05W31 L=340)   237     62        0 (1463/ 846-1518/ 896) -11.3 W28-W33 S06-S04
     19 1056  799 (S19W07 L=315)   617    212        2 ( 983/ 719-1118/ 872)  71.6 W03-W08 S25-S13
     20 1210  657 (S24W20 L=328)   266    119        0 (1164/ 626-1249/ 705)  63.4 W17-W20 S26-S20
     21 1122  462 (S38W21 L=330)   325     92        0 (1075/ 452-1175/ 478)  15.9 W17-W25 S39-S36
  

    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