Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  831 1824 (N37E44 L=138)   672     65        0 ( 795/1800- 864/1851) -11.3 E49-E39 N35-N38
      2  781 1756 (N31E41 L=140)   604     66        1 ( 749/1721- 810/1782)  76.0 E44-E38 N28-N33
      3  968 1538 (N22E18 L=164)   753    298        1 ( 912/1393-1039/1662) -39.5 E26-E09 N14-N28
      4  532 1523 (N10E45 L=137)   951    243        4 ( 440/1452- 609/1568)  51.3 E49-E40 N03-N13
      5 1273 1475 (N27W02 L=183)   579    156        0 (1249/1401-1324/1524) -84.3 W00-W03 N21-N31
      6  481 1388 (N01E43 L=139)   584    169        1 ( 459/1314- 501/1461) -69.4 E46-E40 S03-N05
      7  219 1403 (S03E69 L=113)   876     87        2 ( 188/1360- 247/1433) -18.4 E77-E65 S05-S01
      8  245 1265 (S11E59 L=123)   688    124        1 ( 221/1225- 268/1334) -81.9 E61-E56 S13-S06
      9 1356 1183 (N12W14 L=196)   592    226        1 (1329/1071-1379/1271) -65.6 W10-W16 N05-N16
     10  259 1081 (S21E53 L=129)   551    111        1 ( 239/1025- 289/1132) -39.8 E56-E49 S23-S18
     11  580 1023 (S17E26 L=156)  1299    301        2 ( 465/ 924- 677/1119)  58.0 E32-E21 S25-S09
     12  191 1084 (S22E61 L=121)   436     43        2 ( 175/1053- 208/1106)  63.4 E63-E59 S24-S20
     13 1830  948 (N14W55 L=237)   498     88        4 (1809/ 905-1852/ 991)  90.0 W52-W57 N11-N16
     14 1716  914 (N08W45 L=227)   317     47        0 (1694/ 892-1742/ 933)  33.7 W43-W47 N07-N10
     15  836  809 (S23E05 L=177)  1450    357        3 ( 668/ 769-1006/ 853)  33.7 E14-W04 S29-S16
     16  448  725 (S38E31 L=151)   799    141        1 ( 385/ 696- 519/ 755)  24.8 E37-E24 S41-S35
     17 1520  656 (S11W40 L=222)   513    154        0 (1475/ 590-1560/ 725) -83.7 W39-W41 S15-S06
     18 1294  545 (S24W31 L=213)   455    125        0 (1239/ 515-1354/ 566)  50.2 W29-W34 S27-S21
     19 1702  487 (S13W66 L=248)  1269    124        6 (1668/ 433-1737/ 542) -69.4 W61-W71 S17-S09
     20 1232  446 (S31W33 L=215)   298     84        1 (1202/ 427-1271/ 479)  -8.1 W29-W36 S32-S30
     21 1103  244 (S49W42 L=223)  2193    357        4 ( 958/ 167-1232/ 335)   1.5 W23-W62 S50-S45
  

    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