Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  852 1852 (N41E41 L=177)  1037    259        1 ( 829/1791- 889/1916) -34.5 E50-E34 N36-N47
      2  747 1554 (N17E31 L=188)   439    113        0 ( 702/1500- 791/1604)  82.9 E32-E29 N12-N20
      3  347 1431 (N02E55 L=163)   395     69        0 ( 332/1393- 371/1458) -71.6 E57-E53 N00-N03
      4  686 1348 (N03E28 L=191)   364    112        0 ( 637/1315- 715/1405)  71.6 E29-E26 N00-N06
      5 1645 1323 (N27W31 L=250)   543     90        1 (1612/1267-1674/1372) -45.0 W28-W34 N24-N30
      6  818 1283 (N02E18 L=201)   906    267        2 ( 675/1241- 948/1305)  14.0 E26-E10 N00-N04
      7  369 1255 (S08E47 L=172)   351     86        0 ( 340/1209- 396/1300)  80.5 E48-E45 S11-S05
      8  984 1111 (S03E04 L=214)   924    256        1 ( 945/ 983-1008/1241) -53.1 E09-W00 S10-N03
      9  807 1001 (S14E12 L=207)   893    217        4 ( 715/ 964- 912/1041)  38.7 E17-E06 S17-S09
     10 1895  858 (N10W66 L=285)   897    132        1 (1866/ 814-1918/ 892) -11.3 W60-W70 N07-N11
     11  597  659 (S39E19 L=200)  1651    377        4 ( 438/ 639- 777/ 690)  16.5 E32-E05 S43-S34
     12 1180  637 (S25W20 L=239)  1135    323        0 (1026/ 608-1346/ 670)  29.1 W11-W29 S29-S19
     13 1705  555 (S13W60 L=279)   401     77        0 (1680/ 537-1731/ 576)   0.0 W57-W63 S13-S11
  

    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