Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1501 1545 (N22W43 L=256)  1212    273        1 (1382/1502-1623/1595) -25.2 W36-W53 N18-N27
      2 1571 1390 (N12W42 L=255)   389     94        0 (1519/1358-1610/1416) -38.7 W39-W44 N09-N13
      3  932 1350 (N23W01 L=214)  1728    484        5 ( 731/1317-1143/1376) -15.6 E11-W14 N18-N27
      4 1395 1206 (N05W25 L=238)   247     34        1 (1379/1180-1414/1236)  71.6 W23-W26 N03-N06
      5  490 1122 (N18E31 L=182)   546    169        1 ( 422/1056- 554/1178) -51.3 E35-E27 N12-N22
      6 1705 1109 (S07W45 L=258)   884    296        3 (1601/1046-1784/1167) -39.8 W38-W51 S11-S01
      7 1705 1024 (S12W43 L=256)   558    104        2 (1662/ 985-1739/1064) -56.3 W40-W45 S14-S08
      8 1647  884 (S19W37 L=249)   923    265        4 (1533/ 798-1732/ 960)  17.4 W27-W44 S22-S15
      9 1344  904 (S11W16 L=229)   307    157        2 (1285/ 864-1380/ 940) -31.0 W12-W18 S14-S08
     10 1692  828 (S23W40 L=252)   494    134        0 (1631/ 770-1728/ 884)  29.1 W34-W43 S25-S20
     11 1729  503 (S48W47 L=260)  1274    272        1 (1684/ 470-1785/ 550) -23.6 W40-W56 S52-S43
     12  482  452 (S21E50 L=162)  1313    303        2 ( 420/ 381- 524/ 547)  25.2 E59-E42 S25-S16
     13 1047  450 (S33E12 L=201)   741    148        0 ( 988/ 392-1091/ 520)  31.0 E17-E07 S35-S29
     14  609  348 (S31E46 L=167)  1151    306        1 ( 563/ 272- 658/ 438)  32.0 E54-E38 S35-S25
  

    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