Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  769 1555 (N19E28 L=277)   954    189        1 ( 728/1495- 834/1625) -28.6 E32-E21 N15-N23
      2  473 1562 (N15E49 L=255)   577    145        1 ( 446/1491- 503/1624) -78.7 E50-E46 N09-N19
      3  758 1325 (N05E22 L=282)   286     70        2 ( 730/1297- 790/1361) -26.6 E23-E19 N03-N06
      4 1432 1141 (N08W21 L=325)   542    207        0 (1363/1086-1535/1173)  -5.2 W17-W28 N05-N10
      5  204  964 (S24E56 L=248)   860    184        4 ( 181/ 892- 232/1038) -77.5 E58-E53 S28-S19
      6 1717  649 (S11W55 L=359)   365     67        2 (1701/ 621-1730/ 686) -36.9 W53-W57 S12-S08
      7 1200  631 (S25W20 L=324)   777    239        0 (1090/ 592-1329/ 669)  39.8 W14-W26 S30-S20
      8  861  210 (S66W18 L=322)   443     79        2 ( 838/ 187- 882/ 238) -20.6 W13-W21 S68-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