Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1564 1493 (N36W23 L= 31)  1202    230        2 (1478/1425-1647/1552)  -7.6 W15-W30 N33-N39
      2  278 1363 (S03E59 L=309)  1644    378        2 ( 213/1253- 375/1493)  75.1 E64-E54 S10-N05
      3 1122 1344 (N13E02 L=  6)   220     49        1 (1092/1324-1154/1358)  14.0 E04-W00 N11-N14
      4  170 1219 (S13E66 L=302)  2671    400        8 ( 106/1120- 219/1327)  72.9 E71-E59 S19-S06
      5  179 1102 (S20E61 L=307)  2244    543        6 (  88/ 972- 285/1204)  43.2 E69-E52 S27-S12
      6  497 1101 (S15E34 L=335)   626    169        3 ( 473/1019- 517/1192) -84.3 E35-E31 S19-S09
      7 1262  725 (S17W22 L= 30)   511    148        1 (1234/ 650-1280/ 796) -45.0 W18-W25 S21-S13
      8 1779  710 (S03W59 L= 67)  1427    261        3 (1734/ 662-1837/ 782)  -6.3 W51-W69 S04-N00
      9  897  648 (S32W03 L= 11)  1318    365        3 ( 722/ 602-1082/ 683)  16.3 E09-W15 S35-S28
     10 1163  613 (S26W20 L= 28)   243     67        0 (1135/ 596-1185/ 632)  56.3 W18-W21 S27-S24
     11 1690  565 (S13W58 L= 66)   345     63        2 (1669/ 545-1712/ 596)  90.0 W55-W60 S14-S10
     12 1529  352 (S29W58 L= 66)  1383    220        2 (1441/ 306-1641/ 415)  47.5 W52-W63 S33-S21
     13 1358  258 (S40W53 L= 61)  1072    215        0 (1310/ 226-1417/ 300)   0.0 W46-W59 S41-S38
  

    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