Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  752 1510 (N42E09 L=350)  1451    289        3 ( 667/1448- 881/1604) -50.9 E15-W00 N35-N51
      2 1028 1404 (N29W09 L=  7)   303     94        0 ( 986/1385-1077/1428) -31.0 W06-W11 N27-N31
      3 1189 1348 (N22W17 L= 16)   249    126        0 (1173/1293-1217/1399)  74.1 W16-W19 N18-N25
      4  236 1296 (N36E61 L=298)  1474    166        3 ( 168/1244- 302/1334)  -9.5 E75-E51 N32-N39
      5  430 1151 (N25E38 L=321)   980    169        3 ( 354/1087- 476/1205) -38.7 E44-E34 N20-N29
      6  185  937 (N14E65 L=294)  1017    136        2 ( 164/ 875- 207/1002) -90.0 E67-E62 N10-N18
      7 1764  949 (S14W48 L= 47)   486     88        0 (1738/ 898-1788/ 996)  38.7 W45-W50 S17-S11
      8  579  961 (N11E29 L=330)   225     79        0 ( 536/ 945- 615/ 975)   0.0 E31-E26 N10-N11
      9  776  651 (S10E22 L=336)   641    177        1 ( 695/ 585- 836/ 699)  24.4 E29-E18 S13-S07
     10  522  594 (S10E41 L=317)   310     27        0 ( 499/ 575- 548/ 615) -33.7 E42-E39 S11-S08
     11 1429  558 (S31W17 L= 16)   282     92        0 (1379/ 547-1469/ 571) -15.9 W13-W20 S32-S29
     12 1281  432 (S36W04 L=  3)   495     73        1 (1245/ 407-1320/ 457)   9.5 W01-W07 S37-S34
     13  944  330 (S36E23 L=336)   461     96        0 ( 921/ 290- 967/ 380)  40.6 E26-E19 S38-S32
  

    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