Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1444 1773 (N41W63 L=258)   437     45        1 (1424/1746-1463/1795)  18.4 W58-W67 N39-N42
      2 1304 1753 (N45W47 L=243)   418     60        1 (1285/1726-1334/1773)   8.1 W43-W51 N43-N46
      3 1107 1710 (N48W28 L=223)   406     47        1 (1078/1682-1130/1739)  38.7 W25-W30 N45-N49
      4  823 1600 (N47E01 L=194)  1986    420        5 ( 690/1520-1019/1680)   5.5 E13-W18 N43-N49
      5 1681 1433 (N15W55 L=251)   367     94        0 (1642/1394-1709/1463) -68.2 W53-W56 N12-N17
      6  632 1374 (N35E20 L=175)   387    129        1 ( 584/1329- 672/1399) -45.0 E23-E16 N31-N37
      7  238 1339 (N39E62 L=134)   461     59        1 ( 214/1308- 262/1362) -53.1 E65-E58 N36-N40
      8 1059 1209 (N17W06 L=201)  1260    335        2 ( 963/1080-1149/1330) -75.3 W02-W08 N07-N26
      9 1719  934 (S14W43 L=239)   300     71        1 (1701/ 898-1734/ 972)  76.0 W41-W45 S15-S11
     10  897  798 (S04E12 L=184)   434    135        0 ( 875/ 738- 920/ 868)  66.8 E13-E09 S07-N00
     11 1760  786 (S24W46 L=242)  1292    215        2 (1701/ 732-1831/ 852) -19.7 W40-W54 S28-S19
     12  440  817 (N04E41 L=154)   262     55        1 ( 416/ 793- 462/ 841) -63.4 E42-E39 N02-N06
     13  161  734 (N02E75 L=121)  2593    195        4 ( 121/ 658- 205/ 823) -56.3 E81-E70 S03-N07
     14 1170  678 (S16W02 L=197)   365    127        0 (1134/ 622-1193/ 739)  54.5 E01-W04 S19-S12
     15  326  671 (S03E55 L=140)   337     38        1 ( 306/ 650- 352/ 688) -14.0 E57-E52 S04-S01
     16 1366  514 (S32W12 L=207)   236     73        0 (1336/ 489-1394/ 543)  21.8 W09-W14 S33-S30
     17  738  446 (S23E31 L=164)  1105    206        1 ( 702/ 351- 776/ 537)  47.5 E37-E25 S29-S17
     18 1693  485 (S45W44 L=239)  1008    142        0 (1633/ 444-1740/ 530)  21.8 W36-W51 S46-S42
     19  429  446 (S19E57 L=139)  3036    248        8 ( 367/ 367- 511/ 528) -76.0 E65-E50 S24-S12
     20 1180  410 (S35E03 L=192)   445    115        0 (1149/ 358-1211/ 466)  49.4 E06-W00 S38-S31
     21 1561  405 (S47W29 L=225)   440     54        1 (1536/ 390-1594/ 430) -23.2 W26-W33 S49-S44
     22  891  272 (S39E30 L=166)   316     31        1 ( 867/ 256- 915/ 286) -33.7 E31-E27 S40-S37
     23 1155  205 (S53E14 L=182)  1073    148        0 (1091/ 175-1236/ 237)  -3.8 E19-E04 S55-S50
  

    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