Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1048 1812 (N44E23 L=354)   562    111        2 (1008/1781-1095/1843)   8.1 E26-E18 N42-N46
      2 1280 1696 (N41E01 L= 16)   340     31        1 (1259/1670-1300/1716)  76.0 E02-W01 N39-N43
      3 1344 1671 (N41W05 L= 21)   359     86        1 (1324/1637-1363/1703) -80.5 W02-W06 N38-N44
      4  556 1508 (N12E41 L=336)   898    296        4 ( 521/1417- 598/1612) -47.5 E46-E34 N06-N18
      5 1444 1587 (N38W14 L= 30)   407     92        1 (1404/1567-1485/1611)  18.4 W11-W17 N35-N40
      6 1140 1351 (N14E01 L= 16)   792    285        0 (1099/1249-1226/1479) -39.8 E06-W06 N08-N21
      7 1865 1169 (N24W54 L= 71)   640     90        0 (1836/1130-1885/1207) -38.7 W50-W57 N21-N25
      8  231 1081 (S18E55 L=321)   750    181        0 ( 201/ 998- 245/1155) -56.3 E59-E53 S23-S14
      9 1338  959 (S04W19 L= 35)  1384    414        4 (1229/ 799-1431/1145)  84.8 W16-W22 S14-N08
     10  687 1054 (S13E20 L=356)   747    166        0 ( 615/ 967- 748/1127)  65.6 E23-E17 S18-S07
     11  987  752 (S23W04 L= 20)   733    166        2 ( 908/ 727-1081/ 787)  16.7 E01-W09 S25-S21
     12 1543  756 (S09W38 L= 54)   258     79        1 (1495/ 724-1577/ 785)  51.3 W35-W40 S12-S07
     13 1760  654 (S08W60 L= 76)  1494    220        3 (1674/ 591-1825/ 727)  47.7 W53-W64 S13-S02
  

    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