Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1586 1679 (N28W68 L= 20)  2224    230        3 (1481/1610-1670/1729) -50.2 W60-W74 N22-N34
      2 1492 1522 (N23W46 L=358)   392     93        0 (1474/1474-1505/1564)  35.5 W42-W49 N20-N25
      3 1355 1518 (N27W36 L=348)   324    115        2 (1312/1473-1396/1548) -71.6 W33-W37 N23-N29
      4 1620 1504 (N18W55 L=  7)  1073    194        2 (1537/1450-1695/1544) -45.0 W49-W59 N13-N22
      5  829 1449 (N37E02 L=311)   312     42        0 ( 807/1418- 848/1476)  56.3 E03-W00 N34-N38
      6 1304 1354 (N19W25 L=338)   255    109        2 (1258/1336-1358/1383) -31.0 W22-W28 N17-N21
      7 1001 1230 (N19W03 L=316)   246    109        0 ( 982/1174-1018/1277)  51.3 W01-W05 N16-N21
      8 1746 1151 (S05W50 L=  2)   333     81        1 (1724/1112-1771/1180)  26.6 W47-W53 S06-S02
      9 1073 1115 (N11W05 L=317)   246     73        1 (1036/1088-1100/1138) -53.1 W03-W06 N09-N13
     10  294 1041 (N22E51 L=261)  1889    475        3 ( 162/ 940- 488/1108)   1.6 E68-E33 N17-N27
     11  190 1075 (N26E64 L=249)   537     54        1 ( 172/1045- 215/1104)  90.0 E66-E60 N23-N27
     12 1552  987 (S08W31 L=343)   283     48        1 (1532/ 963-1573/1009)  18.4 W29-W32 S09-S06
     13 1833  844 (S26W54 L=  7)  2053    188        3 (1774/ 770-1913/ 906)  13.2 W47-W67 S29-S22
     14 1689  859 (S20W39 L=351)   708    236        0 (1566/ 828-1753/ 897) -14.0 W29-W45 S21-S15
     15  498  821 (N06E37 L=275)   294    106        0 ( 454/ 782- 527/ 868) -63.4 E39-E35 N03-N09
     16 1063  829 (S05E02 L=310)   254     67        2 (1027/ 800-1085/ 851) -56.3 E04-W00 S06-S02
     17  488  705 (S01E41 L=271)   423    115        0 ( 472/ 646- 505/ 760)  56.3 E43-E38 S04-N02
     18 1127  539 (S24E06 L=307)   728    228        2 (1064/ 446-1191/ 633)  42.3 E11-W00 S29-S18
     19 1384  449 (S38W09 L=322)   415     71        1 (1361/ 412-1397/ 492)  81.9 W07-W10 S41-S34
     20  984  244 (S43E28 L=284)  2928    292        6 ( 887/ 135-1050/ 359)  26.6 E51-E17 S52-S34
  

    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