Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1319 1680 (N43E03 L=198)   620    186        0 (1256/1605-1367/1746) -28.3 E10-W03 N38-N46
      2 1210 1665 (N38E10 L=191)   289    137        0 (1191/1596-1237/1716) -45.0 E13-E05 N33-N41
      3  454 1396 (S00E46 L=155)   713     98        1 ( 424/1337- 477/1437) -29.7 E49-E42 S03-N02
      4 1380 1276 (N18W13 L=214)   706    160        0 (1309/1213-1434/1320) -11.3 W07-W17 N15-N19
      5  998  836 (S17W04 L=205)   961    361        0 ( 829/ 794-1156/ 865)  40.9 E04-W12 S24-S11
      6  525  705 (S39E24 L=177)  1175    300        1 ( 483/ 578- 601/ 798)  86.4 E27-E19 S46-S30
      7 1056  660 (S25W13 L=214)   579    160        0 ( 991/ 620-1141/ 693)  53.1 W10-W17 S29-S21
      8 1711  649 (S05W56 L=257)   328     38        1 (1691/ 629-1729/ 671)  71.6 W54-W58 S06-S03
      9 1392  622 (S17W34 L=235)   302     43        0 (1361/ 601-1424/ 637)  56.3 W32-W36 S18-S15
     10 1140  546 (S29W23 L=224)   838    312        0 ( 992/ 528-1274/ 574)  34.5 W13-W29 S34-S23
     11  430  429 (S63E38 L=163)   876    110        2 ( 389/ 399- 470/ 471)  -8.7 E43-E29 S65-S59
     12 1402  418 (S27W47 L=248)   694    171        0 (1338/ 392-1480/ 456)   8.1 W40-W54 S28-S25
     13  500  404 (S63E25 L=176)   356     42        1 ( 477/ 386- 520/ 427)  35.5 E29-E22 S64-S59
  

    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