Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  653 1720 (N62E05 L= 20)   402     66        1 ( 630/1688- 681/1749)  29.7 E08-W00 N59-N64
      2 1031 1654 (N42W23 L= 48)   649    145        1 ( 969/1611-1093/1695) -68.2 W20-W25 N37-N47
      3 1419 1628 (N28W47 L= 72)   676    210        1 (1320/1607-1514/1650) -33.7 W39-W53 N23-N31
      4  500 1608 (N58E26 L=358)   649    102        1 ( 460/1577- 539/1638)   0.0 E31-E21 N56-N61
      5  318 1508 (N56E53 L=332)   595     94        1 ( 283/1471- 353/1544)  24.0 E58-E48 N53-N57
      6 1055 1448 (N29W15 L= 40)   242     24        0 (1033/1427-1077/1468) -18.4 W13-W16 N27-N30
      7 1080 1269 (N18W10 L= 35)   414    223        0 ( 987/1241-1191/1302) -42.0 W05-W15 N13-N22
      8 1844  940 (S23W54 L= 79)   414     77        0 (1815/ 911-1868/ 977)   8.1 W50-W57 S24-S21
      9 1343  581 (S28W07 L= 32)   762    226        1 (1264/ 515-1393/ 677)  26.6 W00-W12 S31-S23
     10 1433  476 (S39W10 L= 35)   562    123        1 (1401/ 415-1463/ 535)  49.4 W07-W13 S43-S35
     11  774  270 (S33E44 L=341)  1132    313        0 ( 717/ 141- 842/ 396)  53.1 E56-E37 S46-S22
     12 1132  274 (S44E19 L=  6)  1127    220        3 (1046/ 221-1217/ 335)   0.0 E27-E10 S46-S40
     13  588  274 (S28E59 L=326)   500     52        1 ( 557/ 259- 620/ 293)   0.0 E63-E54 S29-S26
  

    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