Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  432 1492 (N21E50 L=182)   924    254        0 ( 395/1429- 478/1570) -31.6 E56-E43 N17-N25
      2  313 1459 (N17E60 L=172)   601    176        0 ( 298/1385- 327/1526) -66.0 E62-E57 N12-N21
      3 1259 1446 (N30W10 L=242)   288     71        0 (1220/1409-1288/1475) -38.7 W07-W12 N27-N31
      4  961 1381 (N21E09 L=223)   241     78        0 ( 944/1342- 979/1415) -53.1 E10-E07 N19-N23
      5  592 1335 (N13E32 L=199)   306    114        0 ( 552/1294- 628/1363) -23.2 E35-E28 N11-N15
      6  950 1223 (N11E07 L=225)   353     65        0 ( 922/1188- 976/1262) -45.0 E09-E05 N09-N13
      7 1687 1124 (N15W44 L=275)   700    147        3 (1640/1088-1716/1184)  45.0 W39-W46 N12-N18
      8 1493 1135 (N13W28 L=260)   553    201        0 (1389/1106-1561/1158)   4.8 W21-W33 N11-N14
      9 1575  921 (N01W37 L=269)  1602    384        3 (1520/ 791-1642/1057) -60.3 W33-W44 S05-N09
     10 1304  728 (S14W22 L=253)  1445    492        4 (1175/ 658-1420/ 833)  42.5 W14-W30 S19-S06
     11 1648  676 (S13W48 L=280)  1335    179        2 (1610/ 602-1687/ 747)  84.3 W44-W51 S17-S07
     12 1198  549 (S27W19 L=251)   357     68        1 (1175/ 522-1234/ 584) -31.0 W16-W21 S28-S24
     13 1356  442 (S32W34 L=265)   730    133        2 (1284/ 422-1423/ 472)  21.8 W28-W38 S34-S29
  

    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