Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1105 1620 (N36W21 L=176)  1094    207        3 (1030/1565-1198/1655)  -4.4 W15-W28 N33-N37
      2  625 1579 (N46E15 L=139)   270    105        0 ( 600/1555- 656/1612) -45.0 E17-E12 N44-N49
      3 1760 1382 (N06W58 L=213)   846    118        0 (1710/1341-1804/1421) -45.0 W54-W61 N02-N08
      4  215 1261 (N33E53 L=101)  1571    477        4 ( 121/1212- 293/1318) -21.8 E65-E45 N29-N38
      5 1757 1178 (S05W51 L=205)   493    105        3 (1724/1145-1791/1211)  18.4 W47-W54 S06-S03
      6  432 1135 (N21E35 L=119)   330     71        1 ( 397/1117- 469/1148) -21.8 E37-E32 N20-N22
      7 1297  960 (S07W14 L=168)  1182    339        4 (1213/ 787-1362/1120)  45.0 W05-W20 S14-N01
      8 1778 1084 (S11W50 L=204)   302     72        0 (1746/1063-1804/1102) -31.0 W47-W52 S12-S09
      9  475  943 (N09E35 L=119)   354     73        1 ( 459/ 904- 496/ 987)  76.0 E36-E33 N07-N11
     10 1299  710 (S21W09 L=164)   200     70        0 (1261/ 695-1333/ 726) -11.3 W06-W11 S22-S20
     11 1130  657 (S21E02 L=152)   234     68        0 (1095/ 633-1165/ 690) -53.1 E03-W00 S22-S17
     12  913  447 (S29E21 L=133)   771    176        0 ( 886/ 367- 937/ 522)  65.6 E25-E18 S34-S23
     13  520  401 (S23E50 L=104)  1474    375        6 ( 472/ 289- 563/ 511)  53.7 E56-E43 S31-S16
     14 1330  466 (S38W07 L=161)   456     91        0 (1285/ 430-1369/ 503)  20.6 W02-W10 S40-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