Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1174 1862 (N57E26 L=356)  1484    163        1 (1090/1821-1236/1889)   3.6 E34-E16 N53-N60
      2  503 1702 (N23E61 L=321)  2270    255        3 ( 475/1610- 546/1806) -31.0 E78-E51 N16-N31
      3 1587 1657 (N56W27 L= 49)   922     86        3 (1558/1608-1612/1696)  65.6 W23-W33 N50-N61
      4 1546 1313 (N27W25 L= 47)   254    110        0 (1500/1278-1583/1340)  -7.1 W20-W28 N25-N27
      5 1838 1025 (N19W56 L= 78)  1256    177        4 (1781/ 968-1900/1075)  -6.7 W48-W65 N17-N21
      6  368  899 (S28E41 L=341)   711    133        2 ( 337/ 826- 387/ 954) -69.4 E44-E38 S32-S24
      7  280  808 (S36E50 L=332)   372     72        2 ( 254/ 783- 312/ 830)  -8.1 E53-E46 S37-S34
      8  497  795 (S31E28 L=354)   325    108        0 ( 447/ 777- 551/ 819)  32.0 E32-E24 S33-S28
      9  638  733 (S31E16 L=  6)   256     38        0 ( 611/ 718- 669/ 746)  36.9 E18-E14 S32-S29
     10  489  410 (S60E29 L=353)   397     37        0 ( 475/ 383- 507/ 435)  68.2 E31-E25 S63-S58
     11  575  363 (S62E16 L=  6)   576     87        0 ( 539/ 335- 609/ 392) -11.3 E21-E11 S63-S59
     12 1128  357 (S40W32 L= 54)   270     49        1 (1103/ 342-1152/ 382)  33.7 W29-W34 S41-S38
     13 1332  343 (S34W47 L= 69)   930    120        2 (1282/ 322-1389/ 370)  26.6 W41-W51 S36-S31
  

    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