Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  764 1668 (N51W02 L=264)   386     83        1 ( 737/1633- 798/1704)  39.8 W00-W07 N48-N53
      2 1440 1667 (N29W50 L=312)   473     62        1 (1413/1643-1472/1688)  -9.5 W47-W54 N27-N30
      3  277 1180 (N31E50 L=212)   689    129        0 ( 222/1142- 324/1218)  14.0 E56-E44 N29-N32
      4  666 1112 (N18E19 L=243)   617    206        0 ( 589/1078- 762/1148) -28.6 E23-E12 N15-N21
      5  404 1081 (N22E38 L=224)   338     99        0 ( 367/1062- 453/1102) -33.7 E41-E34 N20-N24
      6  306  954 (N17E49 L=213)   328     34        0 ( 287/ 929- 325/ 979) -90.0 E50-E47 N15-N18
      7 1350  733 (S20W11 L=273)   217     96        0 (1330/ 688-1374/ 770)  45.0 W09-W13 S22-S18
      8 1663  692 (S33W34 L=296)   283     45        0 (1638/ 676-1687/ 707) -11.3 W31-W36 S33-S31
      9 1369  630 (S27W10 L=272)   246    111        1 (1318/ 599-1399/ 662)   9.5 W06-W12 S28-S25
     10 1200  491 (S31E04 L=258)   261     68        0 (1175/ 460-1231/ 520) -80.5 E04-E02 S34-S28
     11 1258  190 (S60E16 L=246)   601     66        1 (1232/ 173-1294/ 216) -76.0 E19-E12 S63-S55
     12 1175  160 (S59E27 L=235)   887     56        1 (1138/ 136-1212/ 180) -63.4 E32-E22 S62-S55
     13 1074  142 (S57E37 L=225)   479     42        1 (1055/ 126-1098/ 162)  15.9 E41-E33 S58-S53
  

    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