Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  426 1701 (N32E57 L=202)   684    154        2 ( 406/1678- 457/1732) -20.6 E61-E53 N30-N34
      2 1114 1477 (N23E00 L=259)   279     48        1 (1084/1459-1140/1497)  56.3 E01-W01 N21-N24
      3 1188 1462 (N23W05 L=264)   252     55        1 (1160/1434-1215/1488)  53.1 W03-W06 N20-N24
      4  202 1363 (N08E66 L=194)  1957    295        5 ( 136/1321- 256/1398)  14.9 E75-E58 N05-N10
      5 1377 1227 (N11W19 L=278)  1155    260        7 (1298/1127-1425/1313) -59.0 W13-W22 N04-N15
      6  948 1237 (N06E07 L=252)   188     48        1 ( 916/1222- 975/1255)  33.7 E08-E05 N04-N07
      7  241 1184 (S03E56 L=203)   475    102        1 ( 214/1143- 270/1226) -45.0 E59-E52 S05-N00
      8  156 1089 (S09E65 L=195)   731    144        1 ( 130/1044- 197/1134)  35.5 E67-E59 S11-S06
      9 1834 1078 (N09W55 L=314)   355     85        1 (1816/1041-1853/1114)  90.0 W53-W57 N06-N11
     10  590  946 (S15E26 L=233)   240     92        0 ( 548/ 909- 617/ 980) -31.0 E29-E24 S16-S13
     11 1482  809 (S12W31 L=291)   405    119        0 (1429/ 785-1535/ 833)  33.7 W27-W34 S14-S10
     12 1333  761 (S17W23 L=282)   220     65        0 (1297/ 741-1364/ 781) -11.3 W19-W24 S18-S16
     13  865  203 (S66W01 L=260)   615     82        0 ( 841/ 166- 890/ 225) -45.0 E03-W04 S70-S63
  

    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