Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1112 1331 (N23W09 L=299)   257     84        1 (1085/1282-1133/1366) -90.0 W07-W10 N20-N25
      2 1657 1311 (N15W48 L=337)   929    254        0 (1574/1262-1759/1358) -29.7 W41-W55 N10-N18
      3 1406 1228 (N13W27 L=316)   607    212        0 (1308/1164-1478/1292) -45.0 W21-W30 N08-N18
      4  490 1233 (N23E34 L=255)   404    144        0 ( 452/1174- 538/1266) -35.5 E37-E30 N19-N25
      5  174 1090 (N15E65 L=225)  1509    274        2 ( 126/1029- 225/1148) -24.8 E71-E58 N11-N18
      6  263  739 (S07E59 L=230)  2085    337        4 ( 231/ 640- 311/ 864)  63.4 E64-E55 S13-N01
      7 1057  634 (S19E02 L=287)  1287    393        1 ( 950/ 499-1136/ 823)  55.0 E10-W04 S27-S07
      8  420  428 (S28E55 L=235)   825    213        3 ( 404/ 379- 439/ 485)  53.1 E58-E50 S32-S24
  

    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