Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  814 1815 (N38E47 L=155)  1112    169        4 ( 733/1781- 894/1842)   3.2 E56-E38 N35-N39
      2  653 1729 (N27E50 L=151)   617     51        1 ( 625/1700- 690/1753)   9.5 E54-E47 N24-N28
      3  497 1672 (N19E59 L=142)   686     98        1 ( 451/1634- 538/1713)  80.5 E61-E57 N15-N22
      4  644 1536 (N14E39 L=163)   462     93        1 ( 620/1489- 676/1585) -71.6 E40-E36 N11-N17
      5 1611 1374 (N33W28 L=230)   668    195        0 (1560/1296-1637/1464) -48.4 W22-W31 N28-N37
      6  525 1298 (S03E37 L=164)  1238    255        3 ( 455/1203- 580/1418)  85.9 E39-E34 S09-N05
      7 1456 1321 (N24W17 L=219)   775    246        2 (1413/1228-1488/1390) -48.8 W13-W21 N19-N27
      8  366 1308 (S06E50 L=151)   971    149        2 ( 345/1225- 393/1376) -52.1 E54-E46 S10-S01
      9 1791 1332 (N38W48 L=250)   424     74        0 (1779/1298-1810/1363)  56.3 W46-W51 N34-N40
     10  228 1302 (S09E64 L=137)   592     98        0 ( 203/1256- 265/1345)  56.3 E67-E61 S11-S05
     11 1186 1235 (N11W03 L=205)   358    109        1 (1151/1201-1229/1278) -18.4 W00-W06 N09-N12
     12 1424 1186 (N15W18 L=220)   234     69        0 (1393/1161-1457/1209) -11.3 W16-W21 N14-N15
     13  585  987 (S19E25 L=176)   750    252        2 ( 504/ 911- 665/1089)  65.0 E29-E21 S25-S10
     14 1066 1071 (S01W01 L=202)   185     52        1 (1038/1051-1087/1089)   0.0 W00-W02 S02-N00
     15 1856 1035 (N21W58 L=259)   467     89        0 (1838/ 990-1874/1082) -38.7 W54-W61 N18-N23
     16 1248  810 (S10W19 L=220)   346     73        2 (1217/ 776-1284/ 840)  80.5 W17-W19 S13-S07
     17 1139  789 (S15W13 L=215)   428    112        2 (1102/ 757-1187/ 827)  71.6 W11-W14 S17-S11
     18 1313  763 (S11W24 L=225)   219     53        1 (1289/ 745-1342/ 785) -11.3 W21-W26 S12-S10
     19  904  661 (S29W04 L=205)  1090    366        3 ( 774/ 622-1077/ 729)  14.7 E06-W13 S31-S23
     20  762  385 (S52W05 L=206)   770    219        1 ( 670/ 358- 864/ 427)  12.5 E05-W13 S54-S49
  

    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