Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1624 1585 (N20W59 L= 12)   592     93        1 (1585/1565-1660/1606) -33.7 W55-W62 N17-N21
      2 1330 1294 (N14W25 L=338)   636    274        6 (1208/1256-1410/1320) -22.6 W18-W30 N10-N17
      3  922 1103 (N14E04 L=309)   186     67        0 ( 886/1083- 963/1122) -36.9 E05-E01 N11-N15
      4 1429 1084 (S00W25 L=338)   229     97        1 (1383/1059-1475/1113)   0.0 W21-W28 S01-N00
      5  251 1034 (N25E53 L=260)   522    134        1 ( 206/ 991- 285/1073) -39.8 E56-E49 N21-N27
      6 1311  957 (S04W14 L=327)   342    123        1 (1249/ 924-1363/ 976) -39.8 W10-W16 S07-S02
      7 1233  908 (S05W09 L=322)   290    104        3 (1209/ 869-1250/ 964)  51.3 W06-W11 S07-S02
      8  527  907 (N12E33 L=280)  1097    419        4 ( 365/ 878- 686/ 935) -17.7 E45-E22 N07-N15
      9 1447  710 (S23W17 L=330)   376     94        0 (1399/ 684-1491/ 743)   8.1 W13-W20 S23-S21
     10 1105  653 (S16E05 L=308)   722    112        2 (1054/ 616-1160/ 698) -66.8 E08-E02 S19-S12
     11  981  486 (S23E18 L=295)   641    212        2 ( 942/ 412-1013/ 583)  45.0 E22-E12 S27-S17
     12  340  484 (S10E65 L=248)  1777    247        5 ( 284/ 427- 397/ 535) -76.0 E70-E59 S14-S05
     13  602  314 (S26E51 L=262)   840    175        1 ( 583/ 268- 623/ 365)  35.0 E56-E46 S29-S22
  

    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