Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1456 1729 (N45W54 L=219)   384     50        1 (1436/1699-1476/1748)  53.1 W51-W59 N42-N46
      2 1124 1697 (N49W20 L=185)   347     60        2 (1096/1669-1156/1717)   0.0 W16-W22 N46-N50
      3  566 1681 (N55E39 L=126)   389     48        1 ( 538/1657- 584/1705)  63.4 E41-E36 N52-N57
      4 1281 1517 (N33W25 L=190)   246     47        0 (1255/1499-1308/1535) -45.0 W23-W26 N31-N34
      5 1765 1343 (N15W59 L=224)   388     68        0 (1745/1309-1783/1373) -76.0 W57-W60 N12-N16
      6  452 1347 (N31E39 L=126)  1071    259        1 ( 345/1318- 555/1371)   0.0 E49-E29 N28-N32
      7  377 1125 (N17E44 L=121)   319     99        1 ( 354/1076- 399/1164)  90.0 E45-E41 N14-N19
      8  206 1083 (N15E61 L=104)   398     58        2 ( 178/1062- 229/1106)  26.6 E64-E58 N13-N16
      9 1227 1012 (N03W12 L=177)   237    100        0 (1210/ 965-1250/1063)  59.0 W10-W14 N00-N05
     10  188  992 (N09E63 L=102)  1356    170        1 ( 154/ 943- 216/1050) -56.3 E68-E59 N06-N12
     11  755  984 (N06E17 L=148)   370    129        2 ( 723/ 926- 781/1049) -76.0 E18-E15 N02-N10
     12 1685  641 (S27W44 L=209)   863    236        0 (1613/ 572-1755/ 710)  30.3 W38-W51 S30-S23
     13 1112  581 (S23W01 L=165)   840    162        3 (1057/ 516-1160/ 648)  63.4 E03-W04 S27-S18
     14  577  593 (S17E35 L=130)   550     91        2 ( 543/ 549- 606/ 628) -80.5 E37-E32 S20-S14
     15 1289  461 (S34W12 L=177)  2864    562        7 (1103/ 360-1436/ 624)  22.2 W00-W23 S41-S23
     16  671  446 (S28E32 L=132)   523     85        1 ( 636/ 425- 714/ 476) -31.0 E34-E29 S29-S25
     17  503  395 (S31E50 L=115)   462     80        1 ( 471/ 364- 534/ 431)  26.6 E54-E44 S33-S28
     18 1420  276 (S54W28 L=193)  1958    288        5 (1325/ 229-1568/ 336)   4.1 W16-W46 S58-S49
     19 1041  177 (S57E14 L=150)   467     57        0 (1007/ 160-1074/ 195)  14.0 E18-E10 S59-S55
  

    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