Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1095 1780 (N43E16 L= 43)   461     66        1 (1072/1742-1114/1811) -66.8 E18-E13 N39-N46
      2 1182 1622 (N33E04 L= 55)   474    124        1 (1133/1592-1238/1664) -14.0 E08-W00 N31-N35
      3 1651 1522 (N40W35 L= 94)  1324    135        2 (1614/1462-1679/1583)  59.7 W30-W38 N33-N45
      4 1381 1518 (N31W12 L= 71)   933    176        2 (1318/1452-1444/1577) -24.4 W06-W17 N27-N34
      5 1600 1295 (N22W30 L= 90)   272     65        1 (1575/1262-1615/1329)  90.0 W28-W31 N19-N24
      6  501 1296 (S01E38 L= 22)   286     57        0 ( 482/1267- 527/1320)  63.4 E38-E36 S02-N00
      7 1701 1058 (N11W42 L=101)  1632    456        3 (1662/ 847-1736/1238) -72.3 W36-W46 S01-N21
      8  664 1204 (S04E25 L= 35)   257     62        1 ( 627/1176- 691/1223) -14.0 E27-E22 S04-S02
      9 1874 1063 (N16W59 L=118)  2741    325       11 (1817/ 908-1913/1187) -53.7 W51-W65 N07-N22
     10 1823 1066 (N15W53 L=112)   339     37        0 (1804/1040-1843/1094) -33.7 W50-W55 N13-N16
     11  283  975 (S23E51 L=  9)   332     61        0 ( 268/ 945- 299/1016) -76.0 E51-E48 S24-S20
     12  400  652 (S42E40 L= 19)   386     90        1 ( 365/ 618- 445/ 680)  29.1 E44-E35 S44-S39
     13 1729  649 (S11W57 L=117)   618     86        1 (1702/ 604-1756/ 677)  78.7 W53-W60 S13-S08
     14 1218  613 (S26W22 L= 81)   302     90        0 (1176/ 579-1260/ 640)  -8.1 W18-W25 S27-S25
     15 1433  530 (S25W40 L= 99)   949    180        2 (1365/ 471-1495/ 587)  -4.1 W33-W47 S27-S23
     16 1361  393 (S35W43 L=102)   782    160        0 (1293/ 370-1433/ 434)   4.1 W35-W49 S36-S33
     17 1278  327 (S42W42 L=101)   466     79        1 (1256/ 276-1298/ 365) -20.0 W37-W48 S44-S39
     18 1552  302 (S34W70 L=129)   651     99        1 (1503/ 286-1601/ 319)  32.0 W64-W74 S36-S31
     19 1362  240 (S45W59 L=118)   910     77        2 (1331/ 194-1388/ 278) -21.0 W54-W67 S47-S41
  

    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