Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1017 1543 (N37W16 L=340)   429    106        1 ( 969/1514-1069/1582)   5.7 W11-W21 N34-N37
      2 1304 1545 (N28W34 L=358)   280     90        0 (1262/1525-1351/1561) -15.9 W30-W37 N26-N28
      3  823 1509 (N40W02 L=325)   284     35        0 ( 801/1480- 840/1531) -90.0 W00-W03 N38-N41
      4 1765 1326 (N01W57 L= 21)   349     49        0 (1749/1297-1782/1351)  26.6 W54-W59 N00-N02
      5  224 1282 (N41E59 L=265)   902    104        2 ( 170/1258- 282/1304)  -9.0 E69-E50 N38-N42
      6  766 1261 (N27E09 L=315)  1566    430        3 ( 544/1222- 936/1288) -19.8 E24-W01 N20-N32
      7 1815 1137 (S10W55 L= 18)   538     49        1 (1795/1113-1847/1166) -45.0 W52-W57 S12-S08
      8 1797 1033 (S15W50 L= 14)  1047    195        2 (1768/ 951-1831/1110)  48.8 W45-W55 S19-S11
      9  341  854 (N13E48 L=276)  4005    912        5 ( 228/ 557- 620/1042)  35.9 E59-E24 S05-N23
     10 1570  957 (S12W30 L=354)   814    172        3 (1526/ 886-1602/1038)  45.0 W25-W33 S14-S07
     11  707  909 (N08E21 L=303)   249     89        0 ( 672/ 872- 740/ 937) -59.0 E22-E19 N05-N10
     12 1327  734 (S17W10 L=333)   388     99        0 (1297/ 690-1356/ 783)  38.7 W06-W12 S19-S15
     13 1058  720 (S11E06 L=318)   382    139        1 (1035/ 651-1081/ 769)  74.1 E08-E03 S14-S07
     14 1120  731 (S12E02 L=321)   285     68        0 (1086/ 700-1146/ 756)  14.0 E04-W00 S12-S10
     15 1147  636 (S18E03 L=320)   206     41        0 (1120/ 619-1177/ 652) -33.7 E04-E01 S19-S16
     16 1281  524 (S29W01 L=325)   532    210        0 (1237/ 424-1318/ 608)  48.0 E04-W05 S34-S24
     17  750  414 (S22E35 L=289)  1160    181        3 ( 708/ 325- 810/ 480)  42.3 E41-E29 S27-S17
     18  446  380 (S18E61 L=262)  4469    431       12 ( 336/ 284- 513/ 454) -59.7 E74-E52 S25-S11
     19 1319  361 (S43E01 L=323)   319     28        1 (1297/ 339-1342/ 379) -45.0 E02-W00 S44-S40
     20 1507  306 (S57W15 L=339)   747     87        2 (1466/ 286-1555/ 329) -13.0 W09-W22 S60-S53
     21  746  171 (S40E57 L=266)   797     78        2 ( 733/ 128- 768/ 208)  24.0 E70-E51 S44-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