Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  847 1623 (N33E26 L=197)   745    157        0 ( 792/1565- 884/1653) -26.6 E30-E21 N29-N34
      2 1176 1523 (N33E01 L=223)   918    189        3 (1110/1462-1254/1583) -18.4 E06-W06 N30-N36
      3 1331 1293 (N21W14 L=237)   286     92        0 (1311/1244-1343/1333) -71.6 W12-W15 N17-N23
      4 1103 1229 (N12W01 L=224)   524    218        0 (1007/1189-1197/1267)   0.0 E05-W06 N11-N13
      5 1726 1088 (N16W47 L=270)   595     83        2 (1708/1040-1749/1129)  71.6 W44-W48 N13-N19
      6  222  955 (S20E58 L=165)  2693    353        3 ( 117/ 837- 323/1085)  29.9 E82-E48 S29-S10
      7 1812 1014 (N14W56 L=279)   542    104        1 (1796/ 958-1824/1064) -80.5 W54-W58 N10-N16
      8 1755 1004 (N12W50 L=273)   379     57        2 (1727/ 984-1788/1028)   0.0 W47-W53 N10-N13
      9 1046  740 (S18W07 L=230)   280     62        1 (1022/ 717-1071/ 763) -33.7 W05-W08 S19-S16
     10 1571  678 (S11W43 L=266)   805    160        1 (1488/ 647-1625/ 709)  33.7 W37-W47 S14-S08
     11 1589  567 (S17W50 L=273)   542    166        1 (1511/ 527-1633/ 613)  49.4 W44-W52 S21-S13
     12 1528  496 (S23W48 L=271)   314     84        0 (1494/ 476-1554/ 517)  36.9 W45-W50 S24-S21
     13  835  305 (S54W04 L=227)   377     48        0 ( 805/ 288- 865/ 324)   8.1 W00-W07 S55-S52
  

    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