Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1103 1505 (N31E02 L=343)   380     86        0 (1072/1467-1125/1535) -53.1 E04-W00 N29-N33
      2 1504 1449 (N34W28 L= 13)  2058    312        2 (1386/1360-1652/1530) -15.3 W18-W40 N29-N38
      3  537 1423 (N17E39 L=306)   293     83        0 ( 503/1408- 575/1435)   0.0 E41-E35 N16-N18
      4 1146 1232 (N14W05 L=350)   516    167        0 (1070/1167-1226/1288) -26.6 W00-W10 N11-N16
      5 1572 1205 (N19W33 L= 18)   273     48        1 (1551/1183-1592/1240)  63.4 W31-W35 N17-N21
      6 1513 1049 (N08W31 L= 15)   259     47        2 (1493/1024-1538/1075) -33.7 W28-W32 N06-N09
      7 1148  828 (S10W10 L=355)   420    118        1 (1130/ 765-1177/ 894) -60.3 W08-W13 S13-S05
  

    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